(lm-keywords-finder-p): Use defvar rather than with-no-warnings.

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index e67835eb82d7d979ff9876586b753d90747837c4..671f3c8ce2a37c4b0725add2e3714c5c2bc1a36c 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -452,14 +452,14 @@ This can be found in an RCS or SCCS header."
     (if keywords
        (split-string keywords ",?[ \t]"))))
 
+(defvar finder-known-keywords)
 (defun lm-keywords-finder-p (&optional file)
   "Return non-nil if any keywords in FILE are known to finder."
   (require 'finder)
   (let ((keys (lm-keywords-list file)))
     (catch 'keyword-found
       (while keys
-       (if (assoc (intern (car keys)) 
-                  (with-no-warnings finder-known-keywords))
+       (if (assoc (intern (car keys)) finder-known-keywords)
            (throw 'keyword-found t))
        (setq keys (cdr keys)))
       nil)))